perm filename LOSS.LSP[TIM,LSP]2 blob
sn#702202 filedate 1983-02-28 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 (declare (fixsw t))
C00013 ENDMK
Cā;
(declare (fixsw t))
(declare (fasload meter))
(DECLARE (ARRAY* (FIXNUM BAZ-ARRAY 3) (NOTYPE BAZ-COMMENT 2))
(*EXPR METER:START-TIME METER:END-TIME))
(DEFUN BAZ (N)
(do ((n n (1- n)))
((= n 0))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))
(PROG2 (METER:START-TIME) (METER:END-TIME 0 1 1))))
(PROGN 'COMPILE
(ARRAY BAZ-ARRAY FIXNUM 1 2 2)
(ARRAY BAZ-COMMENT T 1 2)
(DO ((I 0 (1- I))
(A '(BAZ) (CDR A))
(B '(((+ "Nothing" 0 1 1))) (CDR B)))
((< I 0) NIL)
(STORE (BAZ-COMMENT I 0) (CAR A))
(STORE (BAZ-ARRAY I 0 0)
(CADR (ASSQ (CAR A) '((BAZ 1) (FOO 1)))))
(DO ((J 1 (1+ J)) (C (REVERSE (CAR B)) (CDR C)))
((NULL C) NIL)
(STORE (BAZ-COMMENT I J) (CADR (CAR C)))))
(METER:INIT-TIME1 (MAKNUM (GET 'BAZ-ARRAY
'ARRAY))
2
2)
(SETQ METER:ARRAY-NAME 'BAZ-ARRAY
METER:MAXF 0
METER:COMMENT-NAME 'BAZ-COMMENT))
(fasload meter)(fasload loss)
(baz 100)
(meter:report)
Statistics
= <calls> (<percentage>) [runtime (<percentage>)]
Meter for: BAZ
Nothing = 10000 (100.0%) [0.079 (100.0%)]
Total = 10000 0.079
T
(*$ 1000.0 (//$ 0.079 10000.0))
7.9E-3